www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\D_add_custom_content_loop_lable.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
.STYLE2 {
color: #0000CC;
font-weight: bold;
}
-->
</style>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_step2_add_custom_content_loop_lable.asp" method="post" name=aaassb1 id="aaassb1">
<table width=730 id="parms" name="parms">
<%
'==========================================================
filezza=""
ztypee=request("labeltype")
if ztypee<>"" then
fph=request("fpath")
sss1=loadfile("../../Model/ComponentLabels/"&fph&"index_componentlabel.asp")
if instr(1,sss1,"$componentlabelname:",1)<>0 then
nd1_m_label_name=trim(mid(sss1,instr(1,sss1,"$componentlabelname:",1)+20,instr(1,sss1,"$end_componentlabelname",1)-(instr(1,sss1,"$componentlabelname:",1)+20)))
else
nd1_m_label_name=""
end if
if instr(1,sss1,"$componentlabelcixu:",1)<>0 then
nd1_m_label_cixu=trim(mid(sss1,instr(1,sss1,"$componentlabelcixu:",1)+20,instr(1,sss1,"$end_componentlabelcixu",1)-(instr(1,sss1,"$componentlabelcixu:",1)+20)))
else
nd1_m_label_cixu=""
end if
if instr(1,sss1,"$is_sys_componentlabel:",1)<>0 then
nd1_m_label_is_sys=trim(mid(sss1,instr(1,sss1,"$is_sys_componentlabel:",1)+23,instr(1,sss1,"$end_is_sys_componentlabel",1)-(instr(1,sss1,"$is_sys_componentlabel:",1)+23)))
else
nd1_m_label_is_sys=""
end if
if ztypee="addmode" then
hzzza="addmode"
filezza="addmode_label.asp"
end if
if ztypee="editmode" then
hzzza="editmode"
filezza="editmode_label.asp"
end if
if ztypee="showmode" then
hzzza="showmode"
filezza="showmode_label.asp"
end if
if ztypee="do_add_mode" then
hzzza="doaddmode"
filezza="do_add_mode_label.asp"
end if
if ztypee="do_edit_mode" then
hzzza="doeditmode"
filezza="do_edit_mode_label.asp"
end if
end if
'========================================================
%>
<tr align="left">
<td>
<%'=================================================
%>
标签保存路径:/Model/ComponentLabels/<%=request("fpath")%><%=filezza%>
</td>
</tr>
<tr align="left">
<td>
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
<%
'=================================================
if ztypee<>"" then
%>
<strong>标签名:</strong><span class="STYLE2">{$$<%=nd1_m_label_name%>$<%=hzzza%>$}
</span>
<%else%>
{$$my_b_<input name="bnm" type="text" value="">}（只能为字母，数字及_号的组合）
<%
end if
'=================================================
%>
</td>
</tr>
<tr align="left">
<td>
标签说明:<textarea name="lbsm" cols=40 rows=3></textarea>
</td>
</tr>
<tr align="left" valign="top">
<td height="60">
每页显示数量:
<input name="fenye" type="text" value="5">
<font style="font-size:12px" color="#3300FF">
每页显示数</font>
<br />
是否分页显示:
<select name="iffen">
<option value="yes">是</option>
<option value="no">否</option>
</select>
</td>
</tr>
</table>
<table>
<tr align="left">
<td>
<br />
<a href=# onclick="add_p();"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left">
<td height="249" align="center"><table width="98%" height="228" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="11%" height="22"><strong>主表:</strong></td>
<td width="44%" align="center"><select name="biao1" id="biao1" style="width:250px" onchange="get_list1();">
<option value="xxxxxx23423423xxx">请选择一个表</option>
<%
set rstschema=conn.openschema(20)
Do Until rstSchema.EOF
if LCASE(rstSchema(3))="table" then
%>
<option value="<%=rstSchema(2)%>"><%=rstSchema(2)%></option>
<%
end if
rstSchema.MoveNext
Loop
%>
</select> </td>
<td width="7%"><strong>从表:</strong></td>
<td width="38%" align="center"><select name="biao2" id="biao2" style="width:250px" onchange="get_list2();">
<option value="xxxxxx23423423xxx">请选择一个表</option>
<%
set rstschema=conn.openschema(20)
Do Until rstSchema.EOF
if LCASE(rstSchema(3))="table" then
%>
<option value="<%=rstSchema(2)%>"><%=rstSchema(2)%></option>
<%
end if
rstSchema.MoveNext
Loop
%>
</select></td>
</tr>
<tr>
<td height="206"><strong>选择字段：</strong><br />
<br />
<span class="STYLE1">请选择要调用的字段名称,按Ctrl或Shift键多选,将自动生成sql语句</span></td>
<td align="center"><select name="zid1" size="13" multiple="multiple" id="zid1" style="width:250px; overflow:auto" onchange="update_sql()">
</select> </td>
<td> </td>
<td align="center"><select name="zid2" size="13" multiple="multiple" id="zid2" style="width:250px; overflow:auto" onchange="update_sql()">
</select></td>
</tr>
</table></td>
</tr>
<iframe id="ajaxdblist" name="ajaxdblist" width="0" height="0"></iframe>
<script language="javascript">
function get_list1(){
var biaon1=document.aaassb1.biao1.value;
document.getElementById("ajaxdblist").src="D_ajax_get_db_biao_ziduan_list.asp?back=zid1&biao="+biaon1;
//document.write("D_ajax_get_db_biao_ziduan_list.asp?back=zid1&biao="+biaon1);
}
function get_list2(){
var biaon2=document.aaassb1.biao2.value;
document.getElementById("ajaxdblist").src="D_ajax_get_db_biao_ziduan_list.asp?back=zid2&biao="+biaon2;
}
function update_sql(){
var biaon1=document.aaassb1.biao1.value;
var biaon2=document.aaassb1.biao2.value;
zid1=document.getElementById("zid1");
zid2=document.getElementById("zid2");
var sql="select "
if (biaon1!="xxxxxx23423423xxx"){
for(var i=0;i<zid1.options.length;i++)
{
if(zid1.options[i].selected==true) {
sql =sql +"[" + biaon1+"]."+ zid1.options[i].text ;
sql =sql +",";
}
}
var n1=sql.substring(sql.length-1,sql.length);
if (n1!=","){sql=sql+","}
}
if (biaon2!="xxxxxx23423423xxx"){
for(var i2=0;i2<zid2.options.length;i2++)
{
if(zid2.options[i2].selected==true) {
sql =sql +"[" + biaon2+"]."+ zid2.options[i2].text ;
sql =sql +",";
}
var biaon2=document.aaassb1.biao2.value;
}
}
var n2=sql.substring(sql.length-1,sql.length);
if (n2==","){
sql=sql.substring(0,sql.length-1);
}
sql=sql+" from ";
if (biaon1!="xxxxxx23423423xxx"){
sql=sql +"[" +biaon1+"]";
}
if (biaon2!="xxxxxx23423423xxx"){
sql=sql+",["+biaon2+"]";
}
document.getElementById("slqms").value=sql;
}
</script>
<tr align="left">
<td height="211" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="12%" height="57"> </td>
<td width="88%" align="left"><font style="font-size:14px" color="#3300FF">在以下的 <strong>查询sql语句</strong>中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 <br />
还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值， <br />
而用$xx_request_asp$i可以读request("i")的值,注意单引号的使用 . 并可以自定义where子句
<br>
,注意 如$xx_var_asp$i要用空格或'号或%号或,号或)号或]号来结束，<br>
如where aaa=$xx_var_asp$i and.... 是对的 <br>
而where aaa=$xx_var_asp$iand....是错的 <br>
</font></td>
</tr>
<tr>
<td width="12%" height="147"><strong>查询sql语句</strong>：</td>
<td align="center"><textarea name="slqms" cols="85" rows="10" id="slqms"></textarea></td>
</tr>
</table></td>
</tr>
<tr align="center" width=600>
<td>
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>"/>
<input type="hidden" name=labeltype value="<%=request("labeltype")%>"/>
<input type="submit" value="下一步" />
</td>
</tr>
</table>
</form>
</div>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
add_p();
add_p();
add_p();
add_p();
add_p();
AJAXfade(1,'l_do');
</script>
<%
AJAXcloseLoader()
%>